Remix Doll 3: Dirty Sally/Remix Doll 3: Dirty Sally.iso/drtyslly.exe/SHARED.DXR/04969_errorUtil.ls

Text File | 1995-02-11 | 1.7 KB | 69 lines

on errorAlert vMess, vErrorID
  if integerp(vErrorID) then
    set aAlertMess to vMess & RETURN & RETURN & "ID = " & vErrorID
  else
    set aAlertMess to vMess
  end if
  alert(aAlertMess)
end

on reportFileErr vErr
  if vErr <> 0 then
    set aErrMess to gtFileErrMess(vErr)
    errorAlert(aErrMess, vErr)
  end if
end

on gtFileErrMess vErr
  if vErr = 0 then
    set aErr to EMPTY
  else
    if vErr = -33 then
      set aErr to "File directory full"
    else
      if vErr = -34 then
        set aErr to "Volume full"
      else
        if vErr = -35 then
          set aErr to "Volume not found"
        else
          if vErr = -36 then
            set aErr to "I/O Error"
          else
            if vErr = -37 then
              set aErr to "Bad file name"
            else
              if vErr = -38 then
                set aErr to "File not open"
              else
                if vErr = -42 then
                  set aErr to "Too many files open"
                else
                  if vErr = -43 then
                    set aErr to "File not found"
                  else
                    if vErr = -56 then
                      set aErr to "No such drive"
                    else
                      if vErr = -65 then
                        set aErr to "No disk in drive"
                      else
                        if vErr = -120 then
                          set aErr to "Directory not found"
                        else
                          set aErr to "Unknown file error"
                        end if
                      end if
                    end if
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
  return aErr
end